home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / RemQuantNoise.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-10  |  1.1 KB  |  52 lines
  1. /* SFX RemQuantNoise */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_SelOperator 'Resample'
  7. SFX_SetOperatorParam 'Resample' 'I1IntType' 'Linear'
  8.  
  9. buf1=-1
  10. SFX_GetActiveBuffer
  11. buf2=RESULT
  12. IF buf2>-1 THEN DO
  13.     SFX_SetOperatorParam 'Resample' 'Factor' '0.5'
  14.     SFX_ProcessSample buf2
  15.     IF RC=0 THEN buf1=RESULT
  16.     ELSE buf1=-1
  17. END
  18. ELSE SFX_Message '"No sample to operate on !"'
  19. buf2=-1
  20. IF buf1>-1 THEN DO
  21.     SFX_SetOperatorParam 'Resample' 'Factor' '2.0'
  22.     SFX_ProcessSample buf1
  23.     IF RC=0 THEN buf2=RESULT
  24.     ELSE buf2=-1
  25.     SFX_RemoveBuffer buf1
  26. END
  27. ELSE SFX_Message '"Operator Resample failed !"'
  28. buf1=-1
  29. IF buf2>-1 THEN DO
  30.     SFX_SetOperatorParam 'Resample' 'Factor' '0.5'
  31.     SFX_ProcessSample buf2
  32.     IF RC=0 THEN buf1=RESULT
  33.     ELSE buf1=-1
  34.     SFX_RemoveBuffer buf2
  35. END
  36. ELSE SFX_Message '"Operator Resample failed !"'
  37. buf2=-1
  38. IF buf1>-1 THEN DO
  39.     SFX_SetOperatorParam 'Resample' 'Factor' '2.0'
  40.     SFX_ProcessSample buf1
  41.     IF RC=0 THEN buf2=RESULT
  42.     ELSE buf2=-1
  43.     SFX_RemoveBuffer buf1
  44. END
  45. ELSE SFX_Message '"Operator Resample failed !"'
  46. IF buf2>-1 THEN DO
  47.     SFX_SetActiveBuffer buf2
  48.     SFX_CleanUp 0
  49. END
  50. SFX_Activate
  51. EXIT
  52.